13575 IF LEFT$(WP$,2) = "@@" THEN GOSUB 13850:WP$ = "":PC = 23: GOSUB 13850
13600 IF LEFT$(WP$,1) = "@" THEN GOSUB 13850:WP$ = ""
13650 IF ( LEN(LP$) + LEN(WP$)) >39 THEN GOSUB 13850
13700 LP$ = LP$ +WP$
13750 NEXT CP
13800 RETURN
13850 POKE -16368,0
13900 IF PC = 23 THEN VTAB 24: HTAB 8: PRINT "HIT ANY KEY TO CONTINUE ";:PC = 0: GET Z$: HTAB 1: CALL -936: IF Z$ = CHR$(17) THEN END
13950 PRINT LP$:LP$ = "":PC = PC +1: RETURN
14000 REM DATA FOR THE ARRAYS
14050 REM ARTICLES
14100 DATA A,THE
14150 REM PREPOSITIONS
14200 DATA AT,BY,IN,ON,NEAR,TO,FROM
14250 DATA DOWN,OFF,THROUGH,OUT,PAST,UP
14300 DATA OF,FOR,WITH,LIKE,ABOUT,ABOVE
14350 DATA ACROSS,AFTER,AGAINST,ALONG
14400 DATA AMONG,AROUND,BEFORE,BEHIND
14450 DATA BELOW,BENEATH,BESIDE,BETWEEN
14500 DATA BEYOND,DURING,EXCEPT,INSIDE
14550 DATA OUTSIDE,OVER,UNDER,INTO,ONTO
14600 DATA UPON,WITHIN,WITHOUT
14650 REM NOUNS
14700 DATA HOUSE,TREE,BOAT,CAR,BICYCLE
14750 DATA RAFT,LAKE,STREAM,RIVER,BUSH
14800 DATA FLOWER,PLANT,SHACK,TENT,DESK
14850 DATA PENCIL,PEN,DOOR,WALL,WINDOW
14900 DATA CLOCK,BOOK,BIRD,DOG,CAT
14950 DATA STREET,POLE,HILL,ROCK,PUDDLE
15000 DATA KEY,VASE,PILLOW,MONEY,CAVE
15050 DATA FORK,SPOON,DISH,CUP,GLASS
15100 DATA SCHOOL,CLASS,SHIRT,PANTS,TIE
15150 DATA CHAIR,SOFA,STEP,LADDER,STOVE
15200 REM ADJECTIVES
15250 DATA WET,RED,GREEN,BLUE,DRY
15300 DATA SLIPPERY,LONG,FAT,SHORT,TALL
15350 DATA SKINNY,BIG,SMALL,HUGE,LITTLE
15400 DATA BLACK,BURNT,FAST,SLOW,ODD
15450 DATA GROWING,SWEET,DULL,HARD,FRAMED
15500 DATA SOFT,FAR,LOUD,QUIET,NEW
15550 DATA OLD,ANCIENT,FRAGIL,BROKEN,WOODEN
15600 DATA COLORFUL,WHITE,ROUGH,SMOOTH,STRIPED
15650 DATA GLOWING,DEADLY,FUNNY,MESSY,SHARP
15700 DATA DUMPY,HONEST,CROOKED,HOT,COLD
15750 REM VERBS
15800 DATA RAN,JUMPED,WALKED,SWAM,COVERED
15850 DATA BROKE,FIXED,GOT,PUT,TOOK
15900 DATA DROVE,PILOTED,PUSHED,SHOOK,STOPPED
15950 DATA DRANK,ATE,CLIMBED,THREW,CAUGHT
16000 DATA MADE,READ,CARRIED,DROPPED,REPLACED
16050 DATA TICKLED,PULLED,LIFTED,TOSSED,FLEW
16100 DATA EXPLODED,STACKED,PLACED,RODE,PLAYED
16150 DATA WROTE,HUNG,PLANTED,BURIED,REMOVED
16200 DATA WATCHED,TOLD,SWUNG,ATTACKED,KILLED
16250 DATA KISSED,HELD,KICKED,HIT,TRIPPED
16300 DATA BURNED,FIXED,REPAIRED,DESTROYED,ENTERED
16350 REM DATA FOR INSTRUCTIONS
16400 DATA " THIS PROGRAM WILL AID IN INCREASING YOUR READING SPEED AND COMPREHENSION. @ @"
16450 DATA " DATA WILL BE FLASHED IN A BOX ON THE SCREEN AND YOU MUST TYPE IN THIS DATA TO GET IT CORRECT. @ @"
16500 DATA " THE DATA CONSISTS OF EITHER NUMBERS OR SENTENCES (IN THE CASE FOR A PRESCHOOL CHILD, JUST LETTERS). THE SENTENCES ARE, FOR THE MOST PART, NONSENSICAL, BUT GRAMMATICALLY CORRECT. @ @"
16550 DATA " THERE ARE TWO FORMATS AVAILABLE, A NORMAL FORMAT AND A FORMAT DESIGNED FOR THE PRESCHOOL CHILD"
16600 DATA "WHO CAN READ THE ALPHABET AND/OR NUMBERS. THE RESPONSE TO THE QUESTION 'PRESCHOOLER' SELECTS THE FORMAT. @@"
16650 DATA " FOLLOWING THE FORMAT QUESTION YOU ARE ASKED FOR THE TYPE OF DATA (NUMBERS? (Y/N)), DIFFICULTY LEVEL"
16700 DATA AND SPEED AT WHICH YOU WILL ATTEMPT READING. @
16750 DATA "(NOTE: HITTING <ESC>AT ANY POINT DURING THIS QUESTIONING WILL SEND YOU TO THE PREVIOUS QUESTION.) @ @"
16800 DATA " WHEN ANSWERING THESE QUESTIONS, HITTING ANY CHARACTER OTHER THAN THOSE SPECIFIED WILL CAUSE THAT QUESTION TO"
16850 DATA "ACCEPT THE FOLLOWING DEFAULTS: @ @ INSTRUCTIONS = N @ PRESCHOOLER = N @ NUMBERS = N @ LEVEL = 2 @ SPEED = 4 @@"
16900 DATA " FOLLOWING THE SET-UP, YOU WILL SEE THE LEVEL AND SPEED, AT WHICH YOU ARE ATTEMPTING, DISPLAYED. BELOW THIS YOU WILL SEE THE BOX IN WHICH THE DATA WILL BE FLASHED. @ @"
16950 DATA " BELOW THE BOX DRAWN ON THE SCREEN YOU WILL SEE A FLASHING CURSOR. THIS IS YOUR READY CUE."
17000 DATA "WHEN YOU ARE READY TO READ, HIT ANY KEY AND THE DATA WILL BE FLASHED. @ @"
17050 DATA " AFTER THE DATA HAS BEEN FLASHED AND YOU HAVE READ IT, A QUESTION MARK (?) WILL APPEAR."
17100 DATA THIS IS YOUR CUE TO TYPE IN WHAT YOU READ. @
17150 DATA "(NOTE: IN THE PRESCHOOLER FORMAT, SPACING IS IGNORED. JUST TYPE IN THE DATA.) @@"
17200 DATA " YOU WILL HAVE TWO CHANCES AT GETTING IT CORRECT. IF YOU"
17250 DATA "DON'T YOU WILL BE SHOWN THE DATA YOU MISSED AND YOUR RESPONSES. @ @"
17300 DATA " THE PROGRAM WILL AUTOMATICALLY ADJUST THE DIFFICULTY LEVEL AND SPEED BASED UPON YOUR PERFORMANCE."
17350 DATA " IF YOU WISH TO MAKE AN ADJUSTMENT TO THE DATA TYPE, LEVEL AND SPEED; JUST HIT THE <ESC> KEY. @ @"
17400 DATA " YOU ARE SCORED AS FOLLOWS: @ 2 POINTS IF CORRECT ON THE FIRST TRY @ 1 POINT IF CORRECT ON THE SECOND TRY @ 0 POINTS IN WRONG ON BOTH TRIES @ @"
